home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
NEW
/
Q-Quantum Link
/
(n)q3.d64
/
keybd.ovly.c-64
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2007-02-25
|
4KB
|
137 lines
100 REM BLANK KEYBOARD OVERLAYS
110 REM
120 REM FOR COMMODORE-64 AND VIC-20
130 REM
140 REM -------------------
150 REM
160 REM MARSHALL F. SCHULTZ CDP
170 REM
180 REM COMMODORE HOUSTON USER GROUP
190 REM
200 REM -------------------
210 REM
220 REM REQUIRES A 1525 OR MPS-801
230 REM
240 REM PRINTER
250 REM
260 REM "[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
270 REM "[221] WRITTEN APRIL 25, 1986 [221]"
280 REM "[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
290 REM
300 REM "[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
310 REM "[221]LAST UPDATE APRIL 25, 1986[221]"
320 REM "[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
330 REM ===============================
340 REM =THIS PROGRAM IS PUBLIC DOMAIN=
350 REM ===============================
360 REM
370 G1$="[176]":G2$="[174]":G3$="[192]":G4$="[173]":G5$="[189]":G6$="[221]"
380 S1$=" "
390 S2$=LEFT$(S1$,1)
400 S3$=LEFT$(S1$,4)
410 S4$=LEFT$(S1$,6)
420 S5$=LEFT$(S1$,14)
430 S6$=LEFT$(S1$,29)
440 D1$="[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
450 D2$=LEFT$(D1$,7)
460 D3$=LEFT$(D1$,14)
470 L1$=S3$+G6$+S1$+S1$+G6$
480 L2$=S3$+G6$+S5$+G6$+S6$+G6$+S6$+G6$
490 L3$=S3$+G6$+S4$+G6$+S1$+G6$+S6$+G6$
500 H1$=S3$+"[213][192][201]"+LEFT$(S5$,7)
510 H2$=S3$+"[165] [167]"+LEFT$(S5$,7)
520 H3$=S3$+"[202][192][203]"+LEFT$(S5$,7)
530 TX$(1)=" CEMENT THIS PRINTED FORM TO POSTER "
540 TX$(2)=" BOARD STOCK USING RUBBER CEMENT OR "
550 TX$(3)=" WHITE GLUE. THEN CUT OUT THE FORM "
560 TX$(4)=" USING AN EXACTO KNIFE. "
570 TX$(5)=" "
580 TX$(6)=" USE YOUR WORD PROCESSOR TO PRINT "
590 TX$(7)=" LISTS OF COMMANDS, REMINDER NOTES, "
600 TX$(8)=" OR WHATEVER YOU WISH TO CEMENT TO "
610 TX$(9)=" THE FACE OF THE OVERLAY "
620 POKE 53280,6:POKE53281,6
630 PRINT"[147][158][213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201][146]";
640 PRINT"[221] [221][146]";
650 PRINT"[221] PRINT BLANK KEYBOARD OVERLAY [221][146]";
660 PRINT"[221] [221][146]";
670 PRINT"[221] FOR COMMODORE-64 OR VIC-20 [221][146]";
680 PRINT"[221] [221][146]";
690 PRINT"[221] USING 1525 OR MPS-801 PRINTER [221][146]";
700 PRINT"[221] [221][146]";
710 PRINT"[221] [221][146]";
720 PRINT"[221] MARSHALL F. SCHULTZ CDP [221][146]";
730 PRINT"[221] [221][146]";
740 PRINT"[221] COMMODORE HOUSTON USER GROUP [221][146]";
750 PRINT"[221] [221][146]";
760 PRINT"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203][146]";:PRINT
770 PRINT"[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201][146]";
780 PRINT"[221] THIS PROGRAM IS IN THE PUBLIC DOMAIN [221][146]";
790 PRINT"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203][146]";
800 PRINT" PRESS ANY KEY TO PRINT"
810 GET Z$:IF Z$="" THEN810
820 PRINT"WORKING. . ."
830 OPEN 4,4
840 PRINT#4,CHR$(27);CHR$(69)
850 PRINT#4,CHR$(14);" BLANK KEYBOARD OVERLAY FOR C-64";CHR$(15);CHR$(10)
860 PRINT#4," MARSHALL F. SCHULTZ"
870 PRINT#4," COMMODORE HOUSTON USER GROUP"
880 PRINT#4," HOUSTON, TEXAS";CHR$(10)
890 PRINT#4,CHR$(10)
900 PRINT#4,S3$+G1$;
910 FOR X=1 TO 74:PRINT#4,G3$;:NEXT:PRINT#4,G2$
920 FOR X=1 TO 4
930 PRINT#4,L1$
940 NEXT
950 PRINT#4,S3$+G6$+S5$+G1$+D3$+G2$+S1$+LEFT$(S1$,7)+G6$
960 PRINT#4,S3$+G6$+S5$+G6$+S5$+G4$+D3$+G2$+S6$+G6$
970 FOR X=1 TO 10
980 PRINT#4,L2$
990 NEXT
1000 PRINT#4,S3$+G6$+S4$+G1$+D2$+G5$+S6$+G6$+S6$+G6$
1010 FOR X=1 TO 5
1020 PRINT#4,L3$
1030 NEXT
1040 FOR X=1 TO 9
1050 PRINT#4,S3$;G6$;S4$;G6$;TX$(X);G6$;S6$;G6$
1060 NEXT
1070 FOR X=1 TO 26
1080 PRINT#4,L3$
1090 NEXT
1100 PRINT#4,S3$+G6$+S4$+G4$+D2$+G2$+S6$+G6$+S6$+G6$
1110 FOR X=1 TO 18
1120 PRINT#4,L2$
1130 NEXT
1140 PRINT#4,S3$+G6$+S5$+G4$+D3$+G2$+S5$+G6$+S6$+G6$
1150 PRINT#4,S3$+G6$+S6$+G4$+D3$+G5$+S6$+G6$
1160 FOR X=1 TO 4:PRINT#4,L1$:NEXT
1170 PRINT#4,S3$;G6$;S5$;G1$;D1$;G2$;S6$;G6$
1180 FOR X=1 TO 2
1190 PRINT#4,L2$
1200 NEXT
1210 PRINT#4,S3$+G6$+S5$+G6$+S6$+G6$+S5$+S2$+H1$+G6$
1220 PRINT#4,S3$+G6$+S5$+G6$+S6$+G6$+S5$+S2$+H2$+G6$
1230 PRINT#4,S3$+G6$+S5$+G6$+S6$+G6$+S5$+S2$+H3$+G6$
1240 PRINT#4,L2$
1250 PRINT#4,S3$;G6$;S5$;G4$;D1$;G5$;S6$;G6$
1260 FOR X=1 TO 6:PRINT#4,L1$:NEXT
1270 PRINT#4,S3$+G4$;
1280 FOR X=1 TO 74:PRINT#4,G3$;:NEXT:PRINT#4,G5$
1290 PRINT#4,CHR$(12)
1300 CLOSE4
1310 PRINT" "
1320 PRINT"ANOTHER COPY (Y/N) N"
1330 PRINT" "
1340 INPUT" [145][145]";R$
1350 IF R$="Y"THEN630
1360 END
2980 REM *****************************
2990 REM RESAVE AFTER PGM CHANGE
3000 CLOSE15
3010 OPEN15,8,15,"S0:KEYBD.OVLY.C-64"
3020 PRINT#15,"V0":CLOSE15
3030 SAVE"0:KEYBD.OVLY.C-64",8
3040 VERIFY"0:KEYBD.OVLY.C-64",8
3050 LIST-2900
3060 END